home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / misc / emu / AMIGHPv2a.lha / AMIGHPv2a / EXAMPLES / UCODYbis.AMIGHP < prev    next >
Text File  |  1996-09-24  |  799b  |  52 lines
  1. DEF
  2.  
  3.    c car                       CHAR
  4.    taille                      INTEGER
  5.    adr adr.tmp adr.max adr.deb POINTER
  6.  
  7. ENDDEF
  8.  
  9. TEST GOSUB
  10. IF taille 5 == THEN EXIT ENDIF
  11. taille adr.tmp  ADD 5 ADD adr.max STO
  12.  
  13. adr.tmp 10      ADD adr.tmp STO
  14. adr.tmp adr     STO
  15. adr.tmp adr.deb STO
  16.  
  17. DROP
  18.  
  19. TEST GOSUB
  20. taille     SR  taille  STO
  21. adr.tmp 10 ADD adr.tmp STO
  22.  
  23. INTOFF
  24. LOOP
  25.  WHILE
  26.    adr adr.max <
  27.  DO
  28.    IF taille 2 == THEN INTON EXIT ENDIF
  29.    adr      D1STO
  30.    c        GETC
  31.    adr      D1RCL
  32.    adr.tmp  D1STO
  33.    car      GETI
  34.    car c    SUB car STO
  35.    car      PUTC
  36.    adr.tmp  D1RCL
  37.    taille   DEC
  38.  ENDWHILE
  39.  adr.deb adr STO
  40. ENDLOOP
  41.  
  42. TEST PROC
  43. DEF
  44.  ischaine INTEGER
  45. ENDDEF
  46.  adr.tmp  GETI
  47.  adr.tmp  D1STO
  48.  ischaine GETI
  49.  IF ischaine 10796 != THEN 514 ERROR ENDIF
  50.  5        INCD1
  51.  taille   GETI
  52. ENDPROC